home *** CD-ROM | disk | FTP | other *** search
/ PC-Blue - MS DOS Public Domain Library / PC-Blue MS-DOS Public Domain Library - NYACC.iso / vol048 / slowdraw.bas (.txt) < prev    next >
Encoding:
GW-BASIC  |  1987-01-11  |  640 b   |  14 lines
  1. 10  REM     be prepared, this program takes close to an hour to draw the image
  2. 20  REM
  3. 30  SCREEN 2:KEY OFF:CLS            'draw an impressive graphics image
  4. 40  P=300:Q=90:XP=250:XR=1.5*3.14159:YP=56:YR=1:ZP=64:XF=XR/XP:YF=YP/YR:ZF=XR/ZP:FOR ZI=-Q TO Q-1:IF ZI<-ZP OR ZI>ZP THEN GOTO 70
  5. 50  ZT=ZI*XP/ZP:ZZ=ZI:XL=INT(0.5+SQR(XP*XP-ZT*ZT)):FOR XI=-XL TO XL:XT=SQR(XI*XI+ZT*ZT)*XF:XX=XI:YY=SIN(SIN(XT)+0.4*SIN(3*XT))*YF
  6. 60  X1=XX+ZZ+P:Y1=-YY+ZZ+Q:PSET(X1,Y1):NEXT XI
  7. 70  NEXT ZI
  8. 80  DEF SEG = &H1700                'print out the screen, takes about 1 minute
  9. 90  BLOAD "DUMPSCRN"
  10. 100  WIDTH "LPT1:",255
  11. 110  SUBRT% = 0
  12. 120  CALL SUBRT%
  13. 130  END
  14.